CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 
ccc DDD ODD UUU UUU 
ccc DDD DOD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD uuu 


DOD D UUU 
C DDDDDDDDDDDD UUUUUUUUUUUUUUU 
C DODDDDDDDDDD UUUUUUUUUUUUUUU 
C ODDDDDDDDDDD UUUUUUUUUUUUUUU 


COO 
OO 
OOo 
COO 
COO 
COO 
OOo 
OOo 
COOan 
Oona 
OOao 
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GGGGGGGG EEEEEEEEEE NN NN RRRRRRRR AAAAAA LL RRRRRRRR EEEEEEEEEE QQaQqQaQ 
GGGGGGGG EEEEEEEEEE NN NN RRRRRRRR AAAAAA LL RRRRRRRR EEEEEEEEEE QQQaQaQ 

GG EE NN NN RR RR AA AA LL RR RR EE QQ 

GG EE NN N RR RR AA AA LL RR RR EE QQ QQ 

GG EE NNNN NN RR RR AA AA LL RR RR EE QQ QQ 

GG EE NNNN NN RR RR AA AA LL RR RR EE QQ QQ 

GG EEEEEEEE NN NN NN RRRRRRRR AA AA LL RRRRRRRR EEEEEEEE QQ QQ 

GG EEEEEEEE NN NN NN RRRRRRRR AA AA LL RRRRRRRR EEEEEEEE QQ Q 

GG GGGGGG EE NN NNNN RR RR AAAAAAAAAA LL RR RR EE QQ QQ Qa 

GG GGGGGG EE NN NNNN RR RR AAAAAAAAAA LL RR RR EE QQ QQ QQ 

GG GG EE NN NN RR RR Ab AA LL RR RR EE Q QQ 

GG GG. EE NN NN RR RR AA AA LL RR RR EE Q QQ 
GGGGGG EEEEEEEEEE NN NN RR RR AA AA LLLLLLLLLL RR RR EEEEEEEEEE QaaQ aa 
GGGGGG EEEEEEEEEE NN NN RR RR AA AA LLLLLLLLLL RR RR EEEEEEEEEE QQqaa aa 

RRRRRRRR 333333 222222 

RRRRRRRR 333333 222222 

RR RR 33 33 22 22 

RR RR 33 33 22 22 

RR RR 33 22 

RR RR 33 22 

RRRRRRRR 33 22 

RRRRRRRR 33 22 

RR RR 33 22 

RR RP 33 22 

RR RR 33 33 22 

RR RR 33 33 22 

RR RR 333333 2222222222 

RR RR 333333 2222222222 
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: IDENT="V04-000" 


ASSES E SSSI I STITT TTT TTT TTT T IIIT TTT T ALT TTT LTTTLTTTTTTiTTiTTiiiTiTiTriiTt 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie oe ton oy tae he WITH RM F C E HE 


ie TRANSFERRED, 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: PoePOkat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED SY DIGITAL. 


eaeeeeee eee eeeeneaenenenennen 
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‘ee 


! Facility: Standard Bliss Require File 
' Abstract: This pogerre file contains standard definitions and macros 
useful 


i 

! 

i 

: or all kinds of Bliss prep onesns, This file is 
: eneral, not specific to any facility, and embodies all of 
4 he constructs found to be useful over many years of Bliss 
: programming. 
i 
i 
i 
i 


Environment: As defined by the facility using this require file. 


Author: Paul C. Anagnostopoulos 
Creation: 18 November 1982 
Modifications: 


—————_—-—____—— 
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' The following 
! the standard B 


literal 
true = 
false = 
macro 
boolean 


! The following 


macro 
pointer 


! The following 
Literal 


! The ye pt 
! kinds of strin 


macro 


D 
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items define a boolean data type, which does not exist in 
Liss Language. 


1 
0; 


= byte %; 
items define a general pointer data type. 


ref block(,byte] %; 
Literals define the most frequently used control characters. 


items 
gs we 


define some simple macros for generating the various 
use: counted, described by descriptor, zero-delimited. 


ctext(string) = uplit byte(Zascic string) %, 
dtext(string) = Zascid string : 
ztext(string) = uplit byte(Zasciz string) %; 


! The following items 


! in the Bliss Longyege- 
he data they describe. 


! descriptors and 


field 


define a descriptor data type, which does not exist 
These constructs allow simpler manipulation of 


descriptor_fields = set 
len = dsc$w_length), 
typ = dsc$b_dtype], 
cls = dsc$b_class], 
ptr = dsc$a_pointer) 

tes; 

descriptor = 


block(8,byte] field(descriptor_fields) 2, 
dbuf fer (name, Length) 
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name: Mech or tenye a eH + aptans eat fields) preset ( 
5 = Len 


with _dbuffer(name,length)(] = 
begin 


local 
name: ends Lengths sbyte) field(descriptor_fields); 
nameClen) = 
nameLtyp] = 0; 
name(cls] = 0; 
name ptrl = name + 8; 
Zremaining 
end i; 


ee eee SS ee ete a ee a 
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| 
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: NEW CONSTRUCTS 


! Define a macro that allows reference to an external message name without 
! having to declare it up top. 


macro 
msg(ident) = : 
(Zif not Ideclared(ident) then 
external Literal 
ident; 
fi 


macro 
check(status)() = 
(if not status then 
fs signal (remaining) 


: The following Literal will set the bits in the $FAO count of a SPUTMSG 
promos Sit so that the facility, severity, and identification won't 
: ncluded. 


literal 
nobabble = %x'00010000'; 


! Define two macros from incrementing and decrementing a variable. 


macro 
increment(variable) = (variable 


-variable + 1) %, 
(variable i 


-variable - 1) %; 


decrement (variable) 
! Define a macro for rounding an integer up to a specified multiple. 


macro 
round_up(expression,multiple) = (((expression)+(multiple)-1) / (multiple) * (multiple)) %; 


! Define a macro for the head of an “‘infinite’’ Loop. 


macro 
loop = while true do 2; 


! Define a macro for building a descriptor at runtime. 


macro 
Butte Soper Soper Syene Lengsh address? = 


n len] = ong 
nanel typ = name cls] = 0; 


address;) 2%; 


ident 

! Define a macro which will check a status code and signal an error. 
name(ptr 

! 
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